www.gusucode.com > HCONLY站长管理助手 V1.3 > HCONLY站长管理助手 V1.3\code\hconly_filemanager.asp

    <!--#Include File="hconly_include.asp"-->
<% 
Dim fs, sAction, sFile, sPath, sFolder, sFileType, scriptname, dbfile, ReadStream, WriteStream, WriteFile, fileobject, filecollection, file, startpath, lineid, bgcolor, bgcolor_on, bgcolor_off, foldercollection, folder, errornum, errorcode

' Reset our errorcode values 
errornum = 0
errorcode = ""

scriptname=Request.ServerVariables("Script_Name")
sAction = Request.Querystring("action")
sFileType = Request.Querystring("filetype")

If Request.Querystring("path") = "" Then
''setting the base path or rootfolder
''*****************************************************
 sPath = "/"''此程序首页显示的文件夹的情况，默认为此程序所在目录的根目录的情况
''*****************************************************
''setting the base path or rootfolder
Else
 sPath = Request.Querystring("path")
'您可以自行删除下列语句(If InStr至下一个End If)，您将可以使用本程序进入服务器其他目录，但需要您手动输入地址栏链接(如果您的服务器开放了此权限的话)
 If InStr(sPath,"../") Then
	 errornum = errornum+1
	 errorcode = errorcode & "<li><b>路径越界</b>。对不起，您仅能编辑网站根目录范围内的文件。</li>"
 End If

End If

If sPath="/" Then
 If Request.Querystring("file") = "" Then
  sFile = sPath & Request.Form("file")
 Else
  sFile = sPath & Request.Querystring("file")
 End If 
 If Request.Querystring("folder") = "" Then
  sFolder = sPath & Request.Form("folder")
 Else
  sFolder = sPath & Request.Querystring("folder")
 End If
Else
 If Request.Querystring("file") = "" Then
  sFile = sPath & "/" & Request.Form("file")
 Else
  sFile = sPath & "/" & Request.Querystring("file")
 End If
 If Request.Querystring("folder") = "" Then
  sFolder = sPath & "/" & Request.Form("folder")
 Else
  sFolder = sPath & "/" & Request.Querystring("folder")
 End If
End If
session("foldername")=spath
' Make sure that no errors have occurred and no illegal actions have been taken before doing our stuff... 
If errornum < 1 Then
  Set fs = Server.CreateObject("Scripting.FileSystemObject")

  Select Case sAction
    Case "editfile"
      Select Case sFileType
        Case "htm", "asp", "txt", "inc", "html", "shtml", "shtm", "js", "css", "php", "aspx", "Asp", "ASP", "Php", "PHP", "TXT", "xml", "xsl"
<!--'***************可在上方添加以文本方式编辑的未知格式*********************-->
          EditFile
        Case "mdb", "dat"
          EditDb
        Case else
          FileTypeUnsupported
      End Select

    Case "savefile"
      SaveFile

    Case "viewfolder"
      Showlist

    Case "newfile"
      CreateFile

    Case "newfolder"
      CreateFolder

    Case "deletefile"
      DeleteFile

    Case "deletefolder"
      DeleteFolder
	
	Case "CreateNewFolder"
	  CreateNewFolder
	
	Case "UploadFiles"
		UploadFiles

Case "Wordreplace"
		Wordreplace

Case "More"
	more
		
	Case "RenameFolder"
		RenameFolder

	Case "RenameFile"
		RenameFile
Case "pwd"
		pwd

    Case Else
      Showlist 
  End Select
  Set fs = Nothing
Else
  DisplayErrors
End If
%>